5 REM    BATTER UP! BY JC HILTY 3/87
6 PRINTCHR$(142)
10 GOSUB745
15 GOSUB515
20 B=0:K=0:OT=0:R=0:X=1
25 IFIN=10THEN1050
30 POKE2040,200:POKE2042,202:FORT=0TO500:NEXT
35 PRINT"[144]"TAB(2)B;TAB(5)K;TAB(9)OT;TAB(14)IN
40 IFOT=3THEN420
45 IFK=3THENOT=OT+1:GOSUB105:K=0:B=0:GOTO35
50 IFB=4THENGOSUB380:B=0:K=0:GOSUB105:GOTO35
55 PRINT""TAB(22)"            "
60 PRINT"[158]"TAB(22)P$(X);" ";PA(X):GOSUB690:FORT=0TO1000:NEXT
65 POKE2042,203:FORT=0TO300:NEXT:POKE2042,204:FORT=0TO200:NEXT
70 Z=INT(8*RND(1)+1)
75 ONZGOSUB120,130,120,140,120,150,120,160
80 W=206
85 FB=-((PEEK(56320)AND16)=0)
90 IFFB=1THENPOKE2040,208:POKEV+21,31:GOTO170
95 POKE2044,W:FORT=0TO50:NEXT:W=W+1:IFW=208THEN185
100 GOTO85
105 X=X+1:IFX=10THENX=1:RETURN
110 RETURN
115 REM    COMPUTER PITCHES
120 POKEV+8,88:POKEV+9,162:POKEV+21,23:FORT=0TO50:NEXT:POKEV+9,172
125 RETURN
130 POKEV+8,88:POKEV+9,162:POKEV+21,23:FORT=0TO50:POKEV+9,145
135 RETURN
140 POKEV+8,88:POKEV+9,162:POKEV+21,23:FORT=0TO50:POKEV+9,172:POKEV+8,120
145 RETURN
150 POKEV+8,88:POKEV+9,162:POKEV+21,23:FORT=0TO50:POKEV+9,200:POKEV+8,70
155 RETURN
160 POKEV+8,88:POKEV+9,162:POKEV+21,23:FORT=0TO50:POKEV+9,200:POKEV+8,100
165 RETURN
170 FORT=0TO150:NEXT:IFZ=1ORZ=3ORZ=5ORZ=7THEN205
175 K=K+1:FORT=0TO200:NEXT:POKEV+21,7:E$="STRIKE"
180 GOTO260
185 IFZ=1ORZ=3ORZ=5ORZ=7THENE$="STRIKE":K=K+1:FORT=0TO500:NEXT:GOTO195
190 E$="BALL":B=B+1:FORT=0TO500:NEXT
195 POKEV+21,7:GOTO260
200 REM    BATTER HITS BALL
205 GOSUB705:POKEV+21,7:E=RND(5)+PA(X)/1000
210 IFE>1.1THENE$="HOME RUN":GOSUB285:B=0:K=0:GOSUB105:GOTO260
215 IFE>.9THENE$="TRIPLE":GOSUB310:B=0:K=0:GOSUB105:GOTO260
220 IFE>.8THENE$="DOUBLE":GOSUB335:B=0:K=0:GOSUB105:GOTO260
225 IFE>.6THENE$="SINGLE":GOSUB380:B=0:K=0:GOSUB105:GOTO260
230 IFE>.5THENE$="FOUL BALL":GOSUB245:GOTO260
235 IFE>.3THENE$="GROUND OUT":OT=OT+1:GOSUB105:B=0:K=0:GOTO260
240 E$="FLY OUT":OT=OT+1:B=0:K=0:GOSUB105:GOTO260
245 IFK<2THENK=K+1:RETURN
250 RETURN
255 REM    DISPLAY HITTING RESULTS
260 PRINT"[158]"TAB(27)E$
265 FORT=0TO2500:NEXT
270 PRINT""TAB(27)"          "
275 GOTO25
280 REM    HOMERUN
285 IFR=0THENYS=YS+1:R=0:GOSUB455:GOSUB510:RETURN
290 IFR=1ORR=2ORR=4THENYS=YS+2:R=0:GOSUB455:GOSUB510:RETURN
295 IFR=3ORR=5ORR=6THENYS=YS+3:R=0:GOSUB455:GOSUB510:RETURN
300 IFR=7THENYS=YS+4:R=0:E$="GRAND SLAM":GOSUB455:GOSUB510:RETURN
305 REM    TRIPLE
310 IFR=0THENR=4:GOSUB455:RETURN
315 IFR=1ORR=2ORR=4THENYS=YS+1:R=4:GOSUB455:GOSUB510:RETURN
320 IFR=3ORR=5ORR=6THENYS=YS+2:R=4:GOSUB455:GOSUB510:RETURN
325 IFR=7THENYS=YS+3:R=4:GOSUB455:GOSUB510:RETURN
330 REM    DOUBLE
335 IFR=0THENR=2:GOSUB455:RETURN
340 IFR=1THENR=6:GOSUB455:RETURN
345 IFR=2THENYS=YS+1:R=2:GOSUB455:GOSUB510:RETURN
350 IFR=3THENYS=YS+1:R=6:GOSUB455:RETURN
355 IFR=4THENYS=YS+1:R=2:GOSUB455:GOSUB510:RETURN
360 IFR=5THENYS=YS+1:R=6:GOSUB455:GOSUB510:RETURN
365 IFR=6THENYS=YS+2:R=2:GOSUB455:GOSUB510:RETURN
370 IFR=7THENYS=YS+2:R=6:GOSUB455:GOSUB510:RETURN
375 REM    SINGLE OR WALK
380 IFR=0THENR=1:GOSUB455:RETURN
385 IFR=1THENR=3:GOSUB455:RETURN
390 IFR=3THENR=7:GOSUB455:RETURN
395 IFR=4THENYS=YS+1:R=1:GOSUB455:GOSUB510:RETURN
400 IFR=5THENYS=YS+1:R=3:GOSUB455:GOSUB510:RETURN
405 IFR=6THENYS=YS+1:R=5:GOSUB455:GOSUB510:RETURN
410 IFR=7THENYS=YS+1:R=7:GOSUB455:GOSUB510:RETURN
415 IFR=2THENR=5:GOSUB455:RETURN
420 I=INT(4*RND(6))
425 PRINT"[158]"TAB(22)"COMPUTER "I:GOSUB720
430 CS=CS+I:PRINT""TAB(22)"            "
435 PRINT"[158]"TAB(32)CS:GOSUB105
440 IN=IN+1:B=0:K=0:R=0:OT=0:GOSUB455
445 GOTO25
450 REM    PLACE BASERUNNERS
455 R=R+1:ONRGOSUB465,470,475,480,485,490,495,500
460 R=R-1:RETURN
465 POKEFI,160:POKESN,160:POKETH,160:RETURN
470 POKEFI,86:POKESN,160:POKETH,160:RETURN
475 POKESN,86:POKEFI,160:POKETH,160:RETURN
480 POKETH,160:POKESN,86:POKEFI,86:RETURN
485 POKETH,86:POKESN,160:POKEFI,160:RETURN
490 POKESN,160:POKETH,86:POKEFI,86:RETURN
495 POKEFI,160:POKESN,86:POKETH,86:RETURN
500 POKEFI,86:POKESN,86:POKEFI,86:RETURN
505 REM    UPDATE SCORE
510 PRINT"[158]"TAB(32)YS:RETURN
515 REM    PLAYING FIELD
520 POKE53281,8:POKE53280,0
525 PRINT"[147][144]   B  S  OUT  INN   [154]                   "
530 PRINT"[144]                    [154]                   "
535 PRINT"                    [154] [144]                [154]  "
540 FORT=0TO2:PRINT"                    [154] [144] "TAB(36)" [154]  ":NEXT
545 PRINT"[149]                    [154] [144] "TAB(36)" [154]  "
550 FORT=0TO1:PRINT"                    [154] [144] "TAB(36)" [154]  ":NEXT
555 PRINT"                    [154] [144]                [154]  "
560 PRINTTAB(20)"[154]  [144] [154]            [144] [154]   "
565 PRINT"                      [144]             [144]    "
570 PRINT"                     [206]               [205] "
575 PRINT"      [146][169]      [223]      [206]                 [205]"
580 PRINT"                    [205]                 [206]"
585 PRINT"[223]                  [146][169] [205]               [206] "
590 PRINT" [223]                [146][169]   [205]             [206]  "
595 PRINT"  [223]              [146][169]     [205]           [206]   "
600 PRINT"   [175][175][175][175][175]    [175][175][175][175][175]       [205]   [206] [205]   [206]    "
605 PRINT"  [206]    [206]    [205]    [205]       [205] [206]   [205] [206]     "
610 PRINT" [206]    [206]     [146] [205]    [205]          [218]         "
615 PRINT"[206]    [206]  [223]  [146][169]  [205]    [205]       [205]   [206]       "
620 PRINT"    [206]"TAB(15)"[205]            [205] [206]        "
625 PRINT"[183][183][183][183]"TAB(16)"[183][183][183][183]                   "
630 FORX=2004TO2022:POKEX,160:POKEX+54272,5:NEXT
635 X=1063:FORT=0TO24:POKEX,160:POKEX+54272,0:X=X+40:NEXT
640 PRINT"[158]"TAB(22)T$;TAB(32)YS:PRINT""TAB(22)C$;TAB(32)CS
645 PRINT""TAB(22)"NOW BATTING"
650 POKEV+16,0:POKEV+27,0:POKEV+23,15:POKEV+29,15:POKEV+28,7
655 POKEV+37,10:POKEV+38,0
660 POKE2040,200:POKEV+39,7:POKEV,30:POKEV+1,150
665 POKE2041,201:POKEV+40,1:POKEV+2,30:POKEV+3,192
670 POKE2042,202:POKEV+41,6:POKEV+4,78:POKEV+5,120
675 POKE2043,209:POKEV+42,0:POKEV+6,64:POKEV+7,160
680 POKE2044,205:POKEV+43,1:POKEV+8,80:POKEV+9,192
685 POKEV+21,7:RETURN
690 FORT=0TO24:POKES+T,0:NEXT
695 POKES,150:POKES+1,200:POKES+5,8:POKES+6,248:POKES+24,15:POKES+4,17
700 FORT=0TO0500:NEXT:POKES+4,16:RETURN
705 FORT=0TO24:POKES+T,0:NEXT
710 POKES+24,15:POKES+1,80:POKES+5,80:POKES+6,245
715 POKES+4,129:FORT=0TO100:NEXT:POKES+4,128:RETURN
720 FORT=0TO24:POKES+T,0:NEXT
725 POKES+18,128:POKES,75:POKES+6,240:POKES+14,12:POKES+15,250:POKES+24,207
730 FORL=0TO30:POKES+4,17:POKES+1,PEEK(S+27)
735 FORT=0TO100:NEXT:NEXT:POKES+4,0
740 RETURN
745 POKE53281,12:POKE53280,0:PRINT"[147]"TAB(14)"************"
750 PRINTTAB(14)"*          *":PRINTTAB(14)"*BATTER UP!*"
755 PRINTTAB(14)"*          *":PRINTTAB(14)"************":PRINTTAB(19)"BY"
760 PRINTTAB(16)"JC HILTY":PRINT:PRINT
765 PRINT"PLEASE WAIT WHILE WE BUY SOME PEANUTS.."
770 DIMPA(9),P$(9):YS=0:CS=0:IN=1:SN=1733:TH=1850:FI=1856
775 S=54272:V=53248
780 FORX=12800TO13438:READA:POKEX,A:NEXT
785 FORX=1TO9:READP$(X):NEXT
790 PRINT"[147]PLEASE ENTER THE NAME OF YOUR TEAM...."
795 PRINT"....UP TO 10 LETTERS."
800 INPUTT$:IFLEN(T$)>10THEN790
805 IFLEN(T$)<1THENT$="PITTSBURGH"
810 PRINT"[147]PLEASE ENTER THE COMPUTER TEAM'S NAME.."
815 PRINT"..UP TO 10 LETTERS."
820 INPUTC$:IFLEN(C$)>10THEN810
825 IFLEN(C$)<1THENC$="NEW YORK"
830 FORX=1TO9:PA(X)=INT(300*RND(5)+100):NEXT
835 PRINT"[147]LINEUPS AND BATTING AVERAGES":PRINT:PRINTT$:PRINT
840 FORX=1TO9:PRINTP$(X);" ";PA(X):NEXT:PRINT:PRINT
845 PRINT"PRESS P TO PRINT LINEUP ON PRINTER...."
850 PRINT"....ANY OTHER KEY TO CONTINUE."
855 GETA$:IFA$=""THEN855
860 IFA$="P"THENGOSUB1030
865 RETURN
870 REM    SPRITE DATA
875 DATA 240,42,0,240,42,0,240,42,128,252,42,160,60,41,64,60,41,64,63,53,64
880 DATA 3,53,64,3,205,0,2,234,0,10,250,128,10,186,128,14,190,128,53,94,128
885 DATA 53,93,240,61,171,112,10,169,112,10,170,240,15,170,0,15,252,0,15,252,0
890 DATA 0
895 DATA 10,170,0,10,170,0,10,170,128,10,171,128,10,174,128,2,174,128
900 DATA 2,174,128,2,174,128,2,174,128,2,174,0,2,174,0,10,170,0,10,186,0
905 DATA 10,191,240,10,188,0,10,128,0,11,192,0,15,252,0,15,0,0,0,0,0,0,0,0,0
910 DATA 0,10,0,0,42,0,0,5,0,0,5,0,0,1,0,0,10,128,0,42,160,0,170,168,0,138,136
915 DATA 0,138,136,0,169,168,0,15,192,0,10,128,0,10,128,0,8,128,0,8,128
920 DATA 0,8,128,0,12,192,0,12,192,0,60,240,0,0,0,0
925 DATA 0,10,0,0,42,0,0,5,0,0,5,0,0,1,0,0,10,0,0,10,0,0,10,0,0,10,0,0,10,0
930 DATA 0,10,0,0,15,0,0,1,0,0,2,0,0,2,0,0,2,0,0,2,0,0,3,0,0,3,0,0,15,0
935 DATA 0,0,0,0
940 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,10,0,0,10,36,0,165,128,0,170,0
945 DATA 0,138,48,0,138,128,0,138,0,0,66,0,0,2,0,0,2,0,0,3,0,0,0,0,0,0,0
950 DATA 0,0,0,0,0,0,0
955 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,24,0,0,60,0,0,24,0
960 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
965 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,24,0,0,60,0,0,126,0,0,60,0
970 DATA 0,24,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
975 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,60,0,0,255,0,0,255,0,0,255,0
980 DATA 0,255,0,0,60,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
985 DATA 0,42,0,0,42,0,0,42,128,0,42,160,0,41,64,0,41,64,0,21,64,0,21,64
990 DATA 0,165,0,2,170,0,2,170,128,2,170,128,2,170,128,2,170,128,10,170,128
995 DATA 10,170,128,10,170,128,10,170,0,15,234,0,15,252,0,15,252,0,0
1000 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,124,135,255,252
1005 DATA 255,255,252,128,63,252,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
1010 DATA 0,0,0,0,0,0,0
1015 REM    PLAYER NAMES
1020 DATA ROCKY,SPIKE,PETE,WILLIE,HAMMER,JIM,MOOSE,BOOMER,HAWK
1025 REM    PRINTOUT LINEUP
1030 PRINT"[147]MAKE SURE PRINTER IS ON....":PRINT"....PRESS ANY KEY."
1035 GETA$:IFA$=""THEN1035
1040 OPEN3,4,0:PRINT#3,"LINEUP AND AVERAGES FOR ";T$
1045 FORX=1TO9:PRINT#3,P$(X);" ";PA(X):NEXT:CLOSE3
1046 PRINT:PRINT"PRESS ANY KEY TO BEGIN GAME."
1047 GETA$:IFA$=""THEN1047
1048 RETURN
1049 REM    GAME OVER
1050 POKEV+21,0
1055 POKE53281,0:POKE53280,0:PRINT"[147][154]"TAB(14)"************"
1060 PRINTTAB(14)"*SCOREBOARD*":PRINTTAB(14)"************":PRINT:PRINT
1065 PRINTTAB(14)T$;YS:PRINTTAB(14)C$;CS
1070 END